%Plots surface of alpha coefficients, cross-market price impact
%assumptions, and cross-currency bases required to generate $10B in welfare
%losses
function fig_surface_plots(alphaGrid, crossMarketGrid, CCBEuro, optfig)

if optfig.plotfig == 1
    
    [fontname,dimension,lw,folder,color,style,marker,markersize,fontsize_tit,fontsize_ax,fontsize_lab,fontsize_leg] = fn_optfig(optfig);
    
    [X,Y] = meshgrid(alphaGrid',crossMarketGrid');
    f0 = figure('Units','inches','Position',dimension);
    
    % Create axes
    axes1 = axes('Parent',f0);
    hold(axes1,'on');

    % Create surf
    surf(X,Y,CCBEuro','Parent',axes1,'FaceAlpha',0.5);
    view(axes1,[149.699997425033 9.60000030710107]);
    xlabel('Coefficient $\alpha$ ','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    ylabel('Cross-Market Impact','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    zlabel('Cross-Currency Basis','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    title('\$10B EUR/USD Welfare Gain Isoquants', 'interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)

end

name = '05_SurfacePlot';
print(f0,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])

end